home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CRKUTIL2.DSK / CRACK 'EM.APPLESOFT.bas < prev    next >
BASIC Source File  |  2014-09-09  |  5KB  |  201 lines
  1. 10  REM  -- L<CTRL-G>I<CTRL-G>S<CTRL-G>T, I DON'T CARE
  2. 20  REM  -- PROGRAM
  3. 25  ONERR  GOTO 10
  4. 30  TEXT : HOME 
  5. 40 A = 102: POKE 1010,A: POKE 1011,213: POKE 1012,112
  6. 50  GOSUB 380
  7. 60 MO = 32768
  8. 70  POKE 33,37
  9. 80  CALL MO
  10. 90  VTAB 7: HTAB 3: FLASH : PRINT ":";: NORMAL : POKE  -16368,0
  11. 100  VTAB 7: HTAB 29: GET A$: PRINT A$;:
  12. 110  IF A$ = "1"  THEN  POKE 47082,1: POKE 14314,2: GOTO 140
  13. 120  IF A$ = "2"  THEN  POKE 47082,2: POKE 14314,1: GOTO 140
  14. 130  GOTO 100
  15. 140  VTAB 7: HTAB 3: PRINT " ": NORMAL : POKE  -16368,0
  16. 150  VTAB 12: HTAB 3: FLASH : PRINT ":";: NORMAL : POKE  -16368,0
  17. 160  VTAB 12: HTAB 16: GET D$: PRINT D$;:
  18. 170  IF D$ = "1"  THEN  POKE 785,16: POKE 849,16: GOTO 200
  19. 180  IF D$ = "2"  THEN  POKE 785,13: POKE 849,13: GOTO 200
  20. 190  GOTO 160
  21. 200  VTAB 12: HTAB 3: PRINT " ": POKE  -16368,0
  22. 210  VTAB 14: HTAB 3: FLASH : PRINT ":";: NORMAL : POKE  -16368,0
  23. 220  VTAB 14: HTAB 28: INPUT "";TR
  24. 230  POKE 780,TR
  25. 240  VTAB 14: HTAB 3: PRINT " ": POKE  -16368,0
  26. 250 R = 768:W = 832
  27. 260 RT = 780:WT = 844
  28. 270  REM  PROGRAM
  29. 280  FOR X = TR TO 34
  30. 290  POKE RT,X: POKE WT,X
  31. 300  CALL R
  32. 310  REM  -- CHECK IF 0-9
  33. 320  VTAB 18: HTAB 22: IF X = 0  OR X = 1  OR X = 2  OR X = 3  OR X = 4  OR X = 5  OR X = 6  OR X = 7  OR X = 8  OR X = 9  THEN  VTAB 18: HTAB 22: PRINT "0";X: GOTO 340
  34. 330  VTAB 18: HTAB 22: PRINT X
  35. 340  IF  PEEK( -16384) = 155  THEN  TEXT : HOME : TEXT : POKE  -16368,0: PRINT " RUN       (RETURN) TO GO TO PROGRAM": END 
  36. 350  CALL W
  37. 360  NEXT X
  38. 370  TEXT : HOME : TEXT : PRINT "COPY COMPLETED...": PRINT " RUN        (RETURN) TO RETURN": END 
  39. 380  REM 
  40. 390  POKE 768,169
  41. 400  POKE 769,0
  42. 410  POKE 770,141
  43. 420  POKE 771,240
  44. 430  POKE 772,183
  45. 440  POKE 773,141
  46. 450  POKE 774,243
  47. 460  POKE 775,183
  48. 470  POKE 776,141
  49. 480  POKE 777,235
  50. 490  POKE 778,183
  51. 500  POKE 779,169
  52. 510  POKE 780,0
  53. 520  POKE 781,141
  54. 530  POKE 782,236
  55. 540  POKE 783,183
  56. 550  POKE 784,169
  57. 560  POKE 785,16
  58. 570  POKE 786,141
  59. 580  POKE 787,237
  60. 590  POKE 788,183
  61. 600  POKE 789,169
  62. 610  POKE 790,79
  63. 620  POKE 791,141
  64. 630  POKE 792,241
  65. 640  POKE 793,183
  66. 650  POKE 794,169
  67. 660  POKE 795,1
  68. 670  POKE 796,141
  69. 680  POKE 797,244
  70. 690  POKE 798,183
  71. 700  POKE 799,206
  72. 710  POKE 800,237
  73. 720  POKE 801,183
  74. 730  POKE 802,169
  75. 740  POKE 803,183
  76. 750  POKE 804,160
  77. 760  POKE 805,232
  78. 770  POKE 806,32
  79. 780  POKE 807,181
  80. 790  POKE 808,183
  81. 800  POKE 809,176
  82. 810  POKE 810,11
  83. 820  POKE 811,206
  84. 830  POKE 812,241
  85. 840  POKE 813,183
  86. 850  POKE 814,162
  87. 860  POKE 815,0
  88. 870  POKE 816,236
  89. 880  POKE 817,237
  90. 890  POKE 818,183
  91. 900  POKE 819,144
  92. 910  POKE 820,234
  93. 920  POKE 821,96
  94. 930  POKE 822,32
  95. 940  POKE 823,45
  96. 950  POKE 824,255
  97. 960  POKE 825,96
  98. 970  POKE 826,0
  99. 980  POKE 827,0
  100. 990  POKE 828,0
  101. 1000  POKE 829,0
  102. 1010  POKE 830,0
  103. 1020  POKE 831,0
  104. 1030  POKE 832,169
  105. 1040  POKE 833,0
  106. 1050  POKE 834,141
  107. 1060  POKE 835,240
  108. 1070  POKE 836,55
  109. 1080  POKE 837,141
  110. 1090  POKE 838,243
  111. 1100  POKE 839,55
  112. 1110  POKE 840,141
  113. 1120  POKE 841,235
  114. 1130  POKE 842,55
  115. 1140  POKE 843,169
  116. 1150  POKE 844,0
  117. 1160  POKE 845,141
  118. 1170  POKE 846,236
  119. 1180  POKE 847,55
  120. 1190  POKE 848,169
  121. 1200  POKE 849,16
  122. 1210  POKE 850,141
  123. 1220  POKE 851,237
  124. 1230  POKE 852,55
  125. 1240  POKE 853,169
  126. 1250  POKE 854,79
  127. 1260  POKE 855,141
  128. 1270  POKE 856,241
  129. 1280  POKE 857,55
  130. 1290  POKE 858,169
  131. 1300  POKE 859,2
  132. 1310  POKE 860,141
  133. 1320  POKE 861,244
  134. 1330  POKE 862,55
  135. 1340  POKE 863,206
  136. 1350  POKE 864,237
  137. 1360  POKE 865,55
  138. 1370  POKE 866,169
  139. 1380  POKE 867,55
  140. 1390  POKE 868,160
  141. 1400  POKE 869,232
  142. 1410  POKE 870,32
  143. 1420  POKE 871,181
  144. 1430  POKE 872,55
  145. 1440  POKE 873,176
  146. 1450  POKE 874,11
  147. 1460  POKE 875,206
  148. 1470  POKE 876,241
  149. 1480  POKE 877,55
  150. 1490  POKE 878,162
  151. 1500  POKE 879,0
  152. 1510  POKE 880,236
  153. 1520  POKE 881,237
  154. 1530  POKE 882,55
  155. 1540  POKE 883,144
  156. 1550  POKE 884,234
  157. 1560  POKE 885,96
  158. 1570  POKE 886,32
  159. 1580  POKE 887,45
  160. 1590  POKE 888,255
  161. 1600  POKE 889,96
  162. 1610  POKE 890,0
  163. 1620  POKE 891,102
  164. 1630  POKE 892,7
  165. 1640  POKE 893,8
  166. 1650  POKE 894,64
  167. 1660  POKE 895,200
  168. 1670  POKE 896,255
  169. 1680  REM  -- POKE MOVER
  170. 1690  POKE 32768,160
  171. 1700  POKE 32769,0
  172. 1710  POKE 32770,185
  173. 1720  POKE 32771,0
  174. 1730  POKE 32772,129
  175. 1740  POKE 32773,153
  176. 1750  POKE 32774,0
  177. 1760  POKE 32775,4
  178. 1770  POKE 32776,185
  179. 1780  POKE 32777,0
  180. 1790  POKE 32778,130
  181. 1800  POKE 32779,153
  182. 1810  POKE 32780,0
  183. 1820  POKE 32781,5
  184. 1830  POKE 32782,185
  185. 1840  POKE 32783,0
  186. 1850  POKE 32784,131
  187. 1860  POKE 32785,153
  188. 1870  POKE 32786,0
  189. 1880  POKE 32787,6
  190. 1890  POKE 32788,185
  191. 1900  POKE 32789,0
  192. 1910  POKE 32790,132
  193. 1920  POKE 32791,153
  194. 1930  POKE 32792,0
  195. 1940  POKE 32793,7
  196. 1950  POKE 32794,200
  197. 1960  POKE 32795,208
  198. 1970  POKE 32796,229
  199. 1980  POKE 32797,96
  200. 1990  POKE 32798,255
  201. 2000  RETURN